home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / UCB Logo 3.0 / logolib / pick < prev    next >
Encoding:
Text File  |  1992-09-04  |  71 b   |  6 lines  |  [TEXT/JV01]
  1. to pick :list
  2. output item (1+random count :list) :list
  3. end
  4.  
  5. bury "pick
  6.